home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 1 - Mathays.iso / pc / Mathayus.exe / Mathayus.dxr / 00005_updateUserIniFile.ls < prev    next >
Encoding:
Text File  |  2002-03-26  |  6.9 KB  |  175 lines
  1. global gUILanguage, gCardID, gEncryptKey, gTotalUserCards, gTotalCardSessions, gTotalScreenInstalls, gTotalGoodbyes, gDefaultEmailReply, gUserDiskDrives
  2.  
  3. on updateUserIniFile
  4.   gCardID = field("cardID")
  5.   gEncryptKey = "theSeriousKey5"
  6.   gTotalUserCards = []
  7.   gTotalCardSessions = 0
  8.   gTotalScreenInstalls = 0
  9.   gTotalGoodbyes = 0
  10.   gDefaultEmailReply = "your@e-mail.com"
  11.   decryptIni("sreg.ini")
  12.   case dosGetLastError() of
  13.     10016:
  14.       writeFreshIni()
  15.       return 1
  16.       exit
  17.     otherwise:
  18.       iniCheck = getIni("sreg.ini", "regInfo", "gTotalUserCards")
  19.       if dosGetLastError() <> 0 then
  20.         put "ini error:" & dosGetLastError() & " reading [regInfo] gTotalUserCards"
  21.       end if
  22.       gTotalUserCards = value(iniCheck)
  23.       put "gTotalUserCards = " & gTotalUserCards
  24.       if ilk(gTotalUserCards, #list) = 0 then
  25.         resetIni("sreg.ini")
  26.         exit
  27.       end if
  28.       repeat with i = 1 to count(gTotalUserCards)
  29.         if gCardID = gTotalUserCards[i] then
  30.           cardFound = 1
  31.           exit repeat
  32.         end if
  33.       end repeat
  34.       if cardFound then
  35.         iniCheck = getIni("sreg.ini", "regInfo", "gDefaultEmailReply")
  36.         gDefaultEmailReply = iniCheck
  37.         put "gDefaultEmailReply = " & gDefaultEmailReply
  38.         if dosGetLastError() <> 0 then
  39.           put "Ini Error:" & dosGetLastError() & " reading gDefaultEmailReply, dumbi"
  40.         end if
  41.         iniCheck = getIni("sreg.ini", gCardID, "gTotalCardSessions")
  42.         iniCheck = integer(iniCheck)
  43.         if dosGetLastError() <> 0 then
  44.           put "Ini Error:" & dosGetLastError() & " reading gTotalCardSessions, dumbi"
  45.         else
  46.           iniCheck = iniCheck + 1
  47.         end if
  48.         gTotalCardSessions = iniCheck
  49.         iniWrite = setIni("sreg.ini", gCardID, "gTotalCardSessions", string(iniCheck))
  50.         put "gTotalCardSessions = " & gTotalCardSessions
  51.         if dosGetLastError() <> 0 then
  52.           put "Ini Error:" & dosGetLastError() & " writing incrementing gTotalCardSessions, dumbi"
  53.         end if
  54.         iniCheck = getIni("sreg.ini", gCardID, "gTotalScreenInstalls")
  55.         gTotalScreenInstalls = integer(iniCheck)
  56.         put "gTotalScreenInstalls = " & gTotalScreenInstalls
  57.         if dosGetLastError() <> 0 then
  58.           put "Ini Error:" & dosGetLastError() & " reading total screen saver installs, dumbi"
  59.         end if
  60.         iniCheck = getIni("sreg.ini", gCardID, "gTotalGoodbyes")
  61.         gTotalGoodbyes = integer(iniCheck)
  62.         put "gTotalGoodbyes = " & gTotalGoodbyes
  63.         if dosGetLastError() <> 0 then
  64.           put "Ini Error:" & dosGetLastError() & " reading total goodbyes, dumbi"
  65.         end if
  66.         encryptIni("sreg.ini")
  67.         if dosGetLastError() <> 0 then
  68.           put "Ini Error:" & dosGetLastError() & " encrypting ini, dumbi"
  69.         end if
  70.         return 1
  71.         exit
  72.       else
  73.         gTotalUserCards.add(gCardID)
  74.         iniWrite = setIni("sreg.ini", "regInfo", "gTotalUserCards", gTotalUserCards)
  75.         put "gTotalUserCards = " & gTotalUserCards
  76.         if dosGetLastError() <> 0 then
  77.           put "Ini Error:" & dosGetLastError() & " writing gTotalUserCards, dumbi"
  78.         end if
  79.         iniCheck = getIni("sreg.ini", "regInfo", "gDefaultEmailReply")
  80.         gDefaultEmailReply = iniCheck
  81.         put "gDefaultEmailReply = " & gDefaultEmailReply
  82.         if dosGetLastError() <> 0 then
  83.           put "Ini Error:" & dosGetLastError() & " reading gDefaultEmailReply, dumbi"
  84.         end if
  85.         gTotalCardSessions = 1
  86.         iniWrite = setIni("sreg.ini", gCardID, "gTotalCardSessions", string(gTotalCardSessions))
  87.         put "gTotalCardSessions = " & gTotalCardSessions
  88.         if dosGetLastError() <> 0 then
  89.           put "Ini Error:" & dosGetLastError() & " writing session initialization, dumbi"
  90.         end if
  91.         iniWrite = setIni("sreg.ini", gCardID, "gTotalScreenInstalls", string(gTotalScreenInstalls))
  92.         put "gTotalScreenInstalls = " & gTotalScreenInstalls
  93.         if dosGetLastError() <> 0 then
  94.           put "Ini Error:" & dosGetLastError() & " writing screen installs, dumbi"
  95.         end if
  96.         iniWrite = setIni("sreg.ini", gCardID, "gTotalGoodbyes", string(gTotalGoodbyes))
  97.         put "gTotalGoodbyes = " & gTotalGoodbyes
  98.         if dosGetLastError() <> 0 then
  99.           put "Ini Error:" & dosGetLastError() & " writing gTotalGoodbyes, dumbi"
  100.         end if
  101.         encryptIni("sreg.ini")
  102.         if dosGetLastError() <> 0 then
  103.           put "Ini Error:" & dosGetLastError() & " encrypting ini, dumbi"
  104.         end if
  105.         return 1
  106.         exit
  107.       end if
  108.   end case
  109. end
  110.  
  111. on resetIni IniFile
  112.   if (gUserDiskDrives <> []) and (gUserDiskDrives <> EMPTY) and (gUserDiskDrives <> VOID) then
  113.     if the platform contains "mac" then
  114.       IniFile = gUserDiskDrives[1] & IniFile
  115.     else
  116.       IniFile = "C:\" & IniFile
  117.     end if
  118.     dosDeleteFile(IniFile)
  119.     writeFreshIni()
  120.   end if
  121. end
  122.  
  123. on writeFreshIni
  124.   gCardID = field("cardID")
  125.   gEncryptKey = "theSeriousKey5"
  126.   gTotalUserCards = []
  127.   gTotalCardSessions = 0
  128.   gTotalScreenInstalls = 0
  129.   gTotalGoodbyes = 0
  130.   gDefaultEmailReply = "your@e-mail.com"
  131.   gTotalUserCards.add(gCardID)
  132.   iniWrite = setIni("sreg.ini", "regInfo", "gTotalUserCards", gTotalUserCards)
  133.   put "gTotalUserCards = " & gTotalUserCards
  134.   if dosGetLastError() <> 0 then
  135.     put "Ini Error:" & dosGetLastError() & " writing gTotalUserCards, dumbi"
  136.   end if
  137.   iniWrite = setIni("sreg.ini", "regInfo", "gUILanguage", gUILanguage)
  138.   put "gUILanguage = " & gUILanguage
  139.   if dosGetLastError() <> 0 then
  140.     put "Ini Error:" & dosGetLastError() & " writing gUILanguage, dumbi"
  141.   end if
  142.   iniWrite = setIni("sreg.ini", "regInfo", "gDefaultEmailReply", gDefaultEmailReply)
  143.   put "gDefaultEmailReply = " & gDefaultEmailReply
  144.   if dosGetLastError() <> 0 then
  145.     put "Ini Error:" & dosGetLastError() & " writing gDefaultEmailReply, dumbi"
  146.   end if
  147.   gTotalCardSessions = 1
  148.   iniWrite = setIni("sreg.ini", gCardID, "gTotalCardSessions", string(gTotalCardSessions))
  149.   put "gTotalCardSessions = " & gTotalCardSessions
  150.   if dosGetLastError() <> 0 then
  151.     put "Ini Error:" & dosGetLastError() & " writing session initialization, dumbi"
  152.   end if
  153.   iniWrite = setIni("sreg.ini", gCardID, "gTotalScreenInstalls", string(gTotalScreenInstalls))
  154.   put "gTotalScreenInstalls = " & gTotalScreenInstalls
  155.   if dosGetLastError() <> 0 then
  156.     put "Ini Error:" & dosGetLastError() & " writing screen installs, dumbi"
  157.   end if
  158.   iniWrite = setIni("sreg.ini", gCardID, "gTotalGoodbyes", string(gTotalGoodbyes))
  159.   put "gTotalGoodbyes = " & gTotalGoodbyes
  160.   if dosGetLastError() <> 0 then
  161.     put "Ini Error:" & dosGetLastError() & " writing gTotalGoodbyes, dumbi"
  162.   end if
  163.   encryptIni("sreg.ini")
  164.   if dosGetLastError() <> 0 then
  165.     put "Ini Error:" & dosGetLastError() & " encrypting ini, dumbi"
  166.   end if
  167.   if the platform contains "win" then
  168.     IniFile = "C:\" & "sreg.ini"
  169.     dosSetFileAttribute(IniFile, "Hidden", 0)
  170.     if dosGetLastError() <> 0 then
  171.       put "Ini Error:" & dosGetLastError() & " hiding ini, dumbi"
  172.     end if
  173.   end if
  174. end
  175.